fix_center <- function(filename, line=1) {
  suppressWarnings({
    fpath <- paste0("writing/tables/", filename)
    writeLines(c(readLines(fpath)[line], "\\centering", readLines(fpath)[(line+1):length(readLines(fpath))]), fpath)
  })
}
